home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / wob boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  674 b   |  25 lines
  1. 5 ifx>0then70
  2. 10 rem   wob boot
  3. 20 rem   12/20/84
  4. 30 :
  5. 40 print"[147]":poke53281,0:poke53280,0:t$="[215][160][207][160][194][160][160][160][194][160][207][160][207][160][212]":gosub60000
  6. 50 t$="by":gosub60000
  7. 60 t$="[202]immy [215]eiler":gosub60000:t$="and":gosub60000:t$="[193]lan [199]ardner":gosub60000
  8. 65 print:print"             ... loading ..."
  9. 70 ifx=0thenx=1:load"wob.i.c",8,1
  10. 80 print:print"           [211][217][211] 49158 to stop."
  11. 82 print"         [211][217][211] 49152 to re-start"
  12. 83 print:print
  13. 90 print:print:print"[208]ress a key to activate [215][207][194][194][204][197]."
  14. 92 poke198,0:wait198,1:getk$:sys49152
  15. 100 print"[147]":forx=0to15step2:poke646,x:fory=0to39:print".";:next:next
  16. 110 print""
  17. 120 print"[212]o return to [204][207][193][196][211][212][193][210], press <[210][197][212][213][210][206]>"
  18. 125 print"twice."
  19. 130 print:print:poke198,0
  20. 140 print"sys49158:load"chr$(34)"hello"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]"
  21. 150 end
  22. 60000 rem    centering
  23. 60002 t=len(t$):t=20-t/2
  24. 60004 printtab(t)t$:print:return
  25.